﻿Imports DevExpress.XtraSplashScreen
Public Class CanDoiTaiKhoan
    Private Sub LoadDuLieu()
        SplashScreenManager.ShowForm(GetType(WaitForm1))
        Me.GetTCCanDoiTaiKhoanTableAdapter.Fill(Me.PCV_CLINICDataSetTongHop.getTCCanDoiTaiKhoan, CDate(TuNgayIDateEdit.EditValue), CDate(DenNgayIDateEdit.EditValue))
        SplashScreenManager.CloseForm()
    End Sub
    Private Sub CanDoiTaiKhoan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.DMThoiGianISearchLookupEdit.EditValue = "TN"
        Me.DMThoiGianTableAdapter.Fill(Me.PCV_CLINICDataSet_Don.DMThoiGian)
        LoadDuLieu()
    End Sub
    Private Sub DMThoiGianISearchLookupEdit_EditValueChanged(sender As Object, e As EventArgs) Handles DMThoiGianISearchLookupEdit.EditValueChanged
        setDMThoiGian(Me.DMThoiGianISearchLookupEdit, TuNgayIDateEdit, DenNgayIDateEdit)
        LoadDuLieu()
    End Sub
    Private Sub BarButtonItemLamTuoi_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemLamTuoi.ItemClick
        LoadDuLieu()
    End Sub
    Private Sub BarButtonItemBaoCao_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBaoCao.ItemClick
        Me.setHeaderFooter(Main.TenDoanhNghiep.ToString, Main.DiaChiDoanhNghiep.ToString)
        Me.IGridView1.setTitle("Cân đối tài khoản " & Format(CDate(Me.TuNgayIDateEdit.EditValue).Month, "00") & "/" & CDate(Me.TuNgayIDateEdit.EditValue).Year)
        Me.IGridView1.inNhanh()
    End Sub
End Class
